home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / nukesf.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-05-23  |  10.9 KB  |  361 lines
  1. 10  REM-Nuclear attack simulator
  2. 20  REM-by K.L. AND R.M. FREEZE
  3. 30  REM-Original program by J.R. DUKAT
  4. 40  REM-Information presented is as good as my sources allow
  5. 50  REM-any corrections or improvements are welcomed........
  6. 60  REM
  7. 70  REM-start it up
  8. 80  SCREEN 1:CLS:KEY OFF
  9. 90  ' LOCATE 6,9,0:PRINT "DO YOU LOVE SAN FRANCISCO?";
  10. 100  'FOR T=1 TO 3000:NEXT T:CLS
  11. 110  GOTO 160
  12. 120  GOSUB 2970
  13. 130  GOSUB 2940
  14. 140  SCREEN 1
  15. 150  CLS
  16. 160  COLOR 0,7
  17. 170  KEY OFF
  18. 180  LINE (158,3)-(339,20),2,B
  19. 190  LINE (158,27)-(338,190),2,B
  20. 200  LOCATE 2,21:PRINT " SAN FRANCISCO BAY";
  21. 210  SCALE=1
  22. 220  XT=-140:YT=120
  23. 230  IBMX=150+(XT*SCALE):IBMY=99-((YT)*SCALE)
  24. 240  FLG=0
  25. 250  READ X,Y
  26. 260  IF X=999 AND Y=999 THEN 240
  27. 270  IF X=888 AND Y=888 THEN 370
  28. 280  X=X+TX:Y=Y+TY
  29. 290  X0=TX:Y0=TY
  30. 300  X=IBMX+X:Y=IBMY-(Y)
  31. 310  PSET (X,Y),1
  32. 320  IF FLG=0 THEN 340
  33. 330  LINE (X,Y)-(LASTX,LASTY)
  34. 340  LASTX=X:LASTY=Y
  35. 350  FLG=1
  36. 360  GOTO 250
  37. 370  READ X,Y
  38. 380  IF X=999 AND Y=999 THEN 410
  39. 390  PAINT (X,Y),2,3
  40. 400  GOTO 370
  41. 410  GOSUB 3020 ;DRAW COMPASS ROSE
  42. 420  IF NXTBOMB=1 THEN 2330
  43. 430  LOCATE 5,21:PRINT "  This map covers ";
  44. 440  LOCATE 6,21:PRINT " an area of appx. ";
  45. 450  LOCATE 7,21:PRINT " 1700 sq/mi.  The ";
  46. 460  LOCATE 8,21:PRINT " long dimension is";
  47. 470  LOCATE 9,21:PRINT " about 50 miles - ";
  48. 480  LOCATE 10,21:PRINT " short dimension  ";
  49. 490  LOCATE 11,21:PRINT " about 34 miles.  ";
  50. 500  LOCATE 12,21:PRINT " Oakland is near  ";
  51. 510  LOCATE 13,21:PRINT " the center of the";
  52. 520  LOCATE 14,21:PRINT " map.             ";
  53. 530  LOCATE 15,21:PRINT " San Francisco is ";
  54. 540  LOCATE 16,21:PRINT " west. The Pacific";
  55. 550  LOCATE 17,21:PRINT " Ocean lies all   ";
  56. 560  LOCATE 18,21:PRINT " along the west.  ";
  57. 570  LOCATE 19,21:PRINT "                  ";
  58. 580  LOCATE 20,21:PRINT "                  ";
  59. 590  FOR T=1 TO 9000:NEXT T
  60. 600  GOSUB 2970  ;CLEAR BIG BOX
  61. 610  LOCATE 5,21:PRINT " To the south is  ";
  62. 620  LOCATE 6,21:PRINT " San Jose and to  ";
  63. 630  LOCATE 7,21:PRINT " the north is the ";
  64. 640  LOCATE 8,21:PRINT " California wine  ";
  65. 650  LOCATE 9,21:PRINT " country.         ";
  66. 660  LOCATE 10,21:PRINT "                  ";
  67. 710  FOR T=1 TO 8000:NEXT T
  68. 720  GOSUB 2970
  69. 730  LOCATE 5,21:PRINT "  This program is ";
  70. 740  LOCATE 6,21:PRINT " to demonstrate   ";
  71. 750  LOCATE 7,21:PRINT " effects from var-";
  72. 760  LOCATE 8,21:PRINT " ious nuclear war-";
  73. 770  LOCATE 9,21:PRINT " heads which might";
  74. 780  LOCATE 10,21:PRINT " be used in attack";
  75. 790  LOCATE 11,21:PRINT " ing San Francisco";
  76. 800  LOCATE 12,21:PRINT " This attack will ";
  77. 810  LOCATE 13,21:PRINT " consist of just  ";
  78. 820  LOCATE 14,21:PRINT " 11  1 MT. bombs. ";
  79. 830  LOCATE 15,21:PRINT " They will explode";
  80. 840  LOCATE 16,21:PRINT " at an altitude of";
  81. 850  LOCATE 17,21:PRINT " 8000 ft. This sim";
  82. 860  LOCATE 18,21:PRINT " ulation would be ";
  83. 870  LOCATE 19,21:PRINT " considered on the";
  84. 880  LOCATE 20,21:PRINT " conservative side";
  85. 890  LOCATE 21,21:PRINT " A maximum attack ";
  86. 900  LOCATE 22,21:PRINT " would use around ";
  87. 910  LOCATE 23,21:PRINT " 60 warheads......";
  88. 920  FOR T=1 TO 11000:NEXT T
  89. 930  GOSUB 2970
  90. 940  TMR=2000
  91. 950  GOSUB 2940
  92. 960  LOCATE 2,21:PRINT "   Select Targets  ";
  93. 970  LINE (158,27)-(338,190),2,B
  94. 980  LOCATE 5,21:PRINT "   Downtown  SF  ";
  95. 990  SOUND 500,1:PSET (40,92),1
  96. 1000  FOR T=1 TO TMR:NEXT T
  97. 1010  LOCATE 6,21:PRINT "   Berkeley       ";
  98. 1020  SOUND 500,1:PSET (76,60),1
  99. 1030  FOR T=1 TO TMR:NEXT T
  100. 1040  LOCATE 7,21:PRINT "   Oakland        ";
  101. 1050  SOUND 500,1:PSET (87,82),1
  102. 1060  FOR T=1 TO TMR:NEXT T
  103. 1070  LOCATE 8,21:PRINT "   Walnut Creek   ";
  104. 1080  SOUND 500,1:PSET (120,62),1
  105. 1090  FOR T=1 TO TMR:NEXT T
  106. 1100  LOCATE 9,21:PRINT "   Concord        ";
  107. 1110  SOUND 500,1:PSET (125,42),1
  108. 1120  FOR T=1 TO TMR:NEXT T
  109. 1130  LOCATE 10,21:PRINT "   Richmond       ";
  110. 1140  SOUND 500,1:PSET (58,48),1
  111. 1150  FOR T=1 TO TMR:NEXT T
  112. 1160  LOCATE 11,21:PRINT "   Vallejo        ";
  113. 1170  SOUND 500,1:PSET (88,10),1
  114. 1180  FOR T=1 TO TMR:NEXT T
  115. 1190  LOCATE 12,21:PRINT "   Martinez       ";
  116. 1200  SOUND 500,1:PSET (110,33),1
  117. 1210  FOR T=1 TO TMR:NEXT T
  118. 1220  LOCATE 13,21:PRINT "   Hayward        ";
  119. 1221  SOUND 500,1:PSET (119,115),1
  120. 1222  FOR T=1 TO TMR:NEXT T
  121. 1230  LOCATE 14,21:PRINT "   San Mateo      ";
  122. 1231  SOUND 500,1:PSET (75,145),1
  123. 1232  FOR T=1 TO TMR:NEXT T
  124. 1235  LOCATE 15,21:PRINT "   Palo Alto      ";
  125. 1236  SOUND 500,1:PSET (105,169),1
  126. 1240  FOR T=1 TO TMR:NEXT T
  127. 1250  FOR I=5 TO 15
  128. 1260  LOCATE I,22:PRINT CHR$(26);
  129. 1270  SOUND 1000,1:FOR T=1 TO 50:NEXT T
  130. 1280  NEXT I
  131. 1290  LOCATE 2,21:PRINT " Targets Confirmed ";
  132. 1300  FOR T=1 TO 4000:NEXT T
  133. 1310  GOSUB 2970
  134. 1320  FOR S=1 TO 50:SOUND 9000,0.5:SOUND 8000,0.5:NEXT S
  135. 1330  LOCATE 2,21:PRINT "   Warhead Size    ";
  136. 1340  LOCATE 5,21:PRINT "   Each warhead is ";
  137. 1350  LOCATE 6,21:PRINT " one megaton - the ";
  138. 1360  LOCATE 7,21:PRINT " equivalent of one ";
  139. 1370  LOCATE 8,21:PRINT " million tons of   ";
  140. 1380  LOCATE 9,21:PRINT " TNT.              ";
  141. 1390  LOCATE 11,21:PRINT "  Warheads are set ";
  142. 1400  LOCATE 12,21:PRINT " to airburst at an ";
  143. 1410  LOCATE 13,21:PRINT " altitude of 8000  ";
  144. 1420  LOCATE 14,21:PRINT " feet.             ";
  145. 1430  FOR T=1 TO 5000:NEXT T
  146. 1440  GOSUB 2970:GOSUB 2940
  147. 1450  SOUND 8000,0.5
  148. 1460  LOCATE 2,21:PRINT "   Targets Marked  ";
  149. 1470  PSET (40,92),Z
  150. 1480  PSET (76,60),Z
  151. 1490  PSET (87,82),Z
  152. 1500  PSET (120,62),Z
  153. 1510  PSET (125,42),Z
  154. 1520  PSET (58,48),Z
  155. 1530  PSET (88,10),Z
  156. 1540  PSET (110,33),Z
  157. 1550  PSET (119,115),Z
  158. 1551  PSET (75,145),Z
  159. 1552  PSET (105,169),Z
  160. 1560  C=C+1:IF C=150 THEN 1590
  161. 1570  IF Z=1 THEN Z=0 ELSE Z=1
  162. 1580  GOTO 1470
  163. 1590  LOCATE 2,21:PRINT " Time to detonate  ";
  164. 1600  FOR CD=10 TO 3 STEP -1
  165. 1610  LOCATE 6,23:PRINT USING "####";CD;
  166. 1620  LOCATE 6,28:PRINT "seconds";
  167. 1630  FOR T=1 TO 1000:NEXT T
  168. 1640  NEXT CD
  169. 1650  GOSUB 2970
  170. 1660  FOR S=1 TO 50:SOUND 4000,0.5:SOUND 4500,0.5:NEXT S
  171. 1670  LOCATE 2,21:PRINT " -- DETONATION --  ";
  172. 1680  S=1:I=5:R=0:GOSUB 2690
  173. 1690  LOCATE 5,21:PRINT "       ZONE 1      ";
  174. 1700  LOCATE 7,21:PRINT " Diameter 3 mi.    ";
  175. 1710  LOCATE 10,21:PRINT " Overpress. 25 psi ";
  176. 1720  LOCATE 11,21:PRINT " Wind Vel. 320 mph ";
  177. 1730  LOCATE 13,21:PRINT "   All structures  ";
  178. 1740  LOCATE 14,21:PRINT " above ground are  ";
  179. 1750  LOCATE 15,21:PRINT " destroyed.        ";
  180. 1760  LOCATE 17,21:PRINT " 98 % fatalities   ";
  181. 1770  LOCATE 19,21:PRINT " STBY FOR ZONE 2   ";
  182. 1780  FOR T=1 TO 5500:NEXT T
  183. 1790  GOSUB 2970
  184. 1800  S=6:I=10:R=3:GOSUB 2690
  185. 1810  LOCATE 5,21:PRINT "       ZONE 2      ";
  186. 1820  LOCATE 7,21:PRINT " Diameter 6 miles  ";
  187. 1830  LOCATE 10,21:PRINT " Overpress. 9 psi  ";
  188. 1840  LOCATE 11,21:PRINT " Wind Vel. 260 mph ";
  189. 1850  LOCATE 13,21:PRINT "  Factories/office ";
  190. 1860  LOCATE 14,21:PRINT " buildings collapse";
  191. 1870  LOCATE 15,21:PRINT " Severe damage to  ";
  192. 1880  LOCATE 16,21:PRINT " highway bridges.  ";
  193. 1890  LOCATE 17,21:PRINT " 50% dead 40% inj. ";
  194. 1900  LOCATE 19,21:PRINT " STBY FOR ZONE 3   ";
  195. 1910  FOR T=1 TO 5500:NEXT T
  196. 1920  GOSUB 2970
  197. 1930  I=19:R=1:GOSUB 2590 ;DRAW CIRCLES
  198. 1940  LOCATE 5,21:PRINT "       ZONE 3      ";
  199. 1950  LOCATE 7,21:PRINT " Diameter 10 mi.   ";
  200. 1960  LOCATE 10,21:PRINT " Overpress. 3 psi  ";
  201. 1970  LOCATE 11,21:PRINT " Wind Vel. 98 mph  ";
  202. 1980  LOCATE 13,21:PRINT "  Wood frame resid-";
  203. 1990  LOCATE 14,21:PRINT " ences severely    ";
  204. 2000  LOCATE 15,21:PRINT " damaged. People   ";
  205. 2010  LOCATE 16,21:PRINT " are blown around, ";
  206. 2020  LOCATE 17,21:PRINT " 2nd degree burns, ";
  207. 2030  LOCATE 18,21:PRINT " 10% dead 45% inj. ";
  208. 2040  LOCATE 20,21:PRINT " STBY FOR MORE..   ";
  209. 2050  FOR T=1 TO 5500:NEXT T
  210. 2060  GOSUB 2970
  211. 2070  LOCATE 5,21:PRINT " LONG RANGE EFFECT ";
  212. 2080  LOCATE 7,21:PRINT " Light door/plaster";
  213. 2090  LOCATE 8,21:PRINT " damage to 14.5 mi.";
  214. 2100  LOCATE 9,21:PRINT " Windows broken out";
  215. 2110  LOCATE 10,21:PRINT " to 30 miles.      ";
  216. 2120  LOCATE 12,21:PRINT " Flashblindness to ";
  217. 2130  LOCATE 13,21:PRINT " 13 miles daytime  ";
  218. 2140  LOCATE 14,21:PRINT " and to 50 miles at";
  219. 2150  LOCATE 15,21:PRINT " night clear sky.  ";
  220. 2160  FOR T=1 TO 5500:NEXT T
  221. 2170  GOSUB 2970:GOSUB 2940
  222. 2180  LOCATE 2,21:PRINT " WANNA SEE WORSE ? ";
  223. 2190  LOCATE 5,21:PRINT " If you wait just a";
  224. 2200  LOCATE 6,21:PRINT " second I'll redraw";
  225. 2210  LOCATE 7,21:PRINT " the map and drop  ";
  226. 2220  LOCATE 8,21:PRINT " just one 20 MT.war";
  227. 2230  LOCATE 9,21:PRINT " head centered on  ";
  228. 2240  LOCATE 10,21:PRINT " Downtown Berkeley.";
  229. 2250  LOCATE 11,21:PRINT " I will mark zones ";
  230. 2260  LOCATE 12,21:PRINT " as before...      ";
  231. 2270  LOCATE 13,21:PRINT " Burst altitude for";
  232. 2280  LOCATE 14,21:PRINT " this device will  ";
  233. 2290  LOCATE 15,21:PRINT " be 17500 feet...  ";
  234. 2300  NXTBOMB=1
  235. 2310  FOR T=1 TO 9000:NEXT T
  236. 2320  RESTORE:GOTO 120
  237. 2330  SOUND 2000,1
  238. 2340  LOCATE 2,21:PRINT "  Target Berkeley ";
  239. 2350  LOCATE 5,21:PRINT "  20 MT. WARHEAD   ";
  240. 2360  PSET (76,60),0
  241. 2370  FOR T=1 TO 3000:NEXT T
  242. 2380  SOUND 5000,1:LOCATE 2,21:PRINT " -- DETONATION --  ";
  243. 2390  S=1:I=16:R=0:GOSUB 2830:S=17:I=23:R=1:GOSUB 2830
  244. 2400  CIRCLE (76,60),40,1
  245. 2410  FOR T=1 TO 3000:NEXT T
  246. 2420  GOSUB 2970
  247. 2430  LOCATE 6,21:PRINT " -FOR COMPARISON-  ";
  248. 2440  LOCATE 8,21:PRINT " I'll drop a 12.5  ";
  249. 2450  LOCATE 9,21:PRINT " kiloton bomb on   ";
  250. 2460  LOCATE 10,21:PRINT " San Francisco.    ";
  251. 2470  LOCATE 11,21:PRINT " (Hiroshima size)..";
  252. 2480  S=1:I=2:R=0:GOSUB 2900:S=3:I=4:R=3:GOSUB 2900
  253. 2490  FOR T=1 TO 10000:NEXT T:CLS:SCREEN 0:WIDTH 80
  254. 2500  LOCATE 10,15,0
  255. 2510  PRINT " Projection for U.S. & SOVIET warhead numbers for 1985"
  256. 2520  LOCATE 11,15,0
  257. 2530  PRINT " is a grand total of roughly 40000 of various sizes..."
  258. 2540  LOCATE 12,15,0
  259. 2550  PRINT " This total does not include other nuclear powers ..."
  260. 2560  LOCATE 17,19,0
  261. 2570  PRINT "             BYE/BYE  &  GOOD LUCK"
  262. 2580  FOR T=1 TO 9000:NEXT T
  263. 2581  LOCATE 1,1,1:CLS:END
  264. 2590  CIRCLE (40,92),I,R
  265. 2600  CIRCLE (76,60),I,R
  266. 2610  CIRCLE (87,82),I,R
  267. 2620  CIRCLE (120,62),I,R
  268. 2630  CIRCLE (125,42),I,R
  269. 2640  CIRCLE (58,48),I,R
  270. 2650  CIRCLE (88,10),I,R
  271. 2660  CIRCLE (110,33),I,R
  272. 2670  CIRCLE (119,115),I,R
  273. 2671  CIRCLE (75,145),I,R
  274. 2672  CIRCLE (105,169),I,R
  275. 2680  RETURN
  276. 2690  FOR GZ=S TO I
  277. 2700  CIRCLE (40,92),GZ,R
  278. 2710  CIRCLE (76,60),GZ,R
  279. 2720  CIRCLE (87,82),GZ,R
  280. 2730  CIRCLE (120,62),GZ,R
  281. 2740  CIRCLE (125,42),GZ,R
  282. 2750  CIRCLE (58,48),GZ,R
  283. 2760  CIRCLE (88,10),GZ,R
  284. 2770  CIRCLE (110,33),GZ,R
  285. 2780  CIRCLE (119,115),GZ,R
  286. 2781  CIRCLE (75,145),GZ,R
  287. 2782  CIRCLE (105,169),GZ,R
  288. 2790  FOR T=1 TO 300:NEXT T
  289. 2800  NEXT GZ
  290. 2810  REM-SINGLE WARHEAD ON BERKELEY
  291. 2820  RETURN
  292. 2830  FOR GZ=S TO I
  293. 2840  CIRCLE (76,60),GZ,R
  294. 2850  FOR T=1 TO 300:NEXT T
  295. 2860  NEXT GZ
  296. 2870  FOR T=1 TO 300:NEXT T
  297. 2880  RETURN
  298. 2890  REM-sub to drop 12.5 kiloton bomb on SAN FRANCISCO
  299. 2900  FOR GZ=S TO I
  300. 2910  CIRCLE (40,92),GZ,R
  301. 2920  FOR T=1 TO 300:NEXT T
  302. 2930  NEXT GZ
  303. 2940  REM- to clear small box
  304. 2950  LOCATE 2,21:PRINT "                  ";
  305. 2960  RETURN
  306. 2970  REM-sub to clear big box
  307. 2980  FOR I=5 TO 23
  308. 2990  LOCATE I,22:PRINT "                  ";
  309. 3000  NEXT I
  310. 3010  RETURN
  311. 3020  REM-sub to draw compass rose
  312. 3030  'FOR I=20 TO 50 STEP 2:PSET (30,I),1:NEXT I
  313. 3040  'FOR I=20 TO 40 STEP 4:PSET (I,35),1:NEXT I
  314. 3050  'PSET (30,20),1:LINE -(27,23),1:PSET (30,20),1:LINE -(33,23),1
  315. 3060  RETURN
  316. 3070  DATA 0,-94,4,-100,9,-103,12,-104,18,-103,19,-102,23,-100
  317. 3080  DATA 21,-95,18,-93,16,-92,16,-88,18,-82,21,-88,24,-90
  318. 3090  DATA 25,-93,27,-93,28,-92,28,-90,28,-88,23,-80,21,-78
  319. 3100  DATA 15,-70,18,-67,25,-66,27,-62,26,-58,20,-55,15,-54
  320. 3110  DATA 15,-47,18,-42,18,-38,18,-32,21,-32,27,-29,27,-28
  321. 3120  DATA 36,-28,40,-29,45,-30,50,-29,53,-28,57,-29,61,-30
  322. 3130  DATA 63,-31,65,-31,68,-32,72,-35,75,-35,81,-34,84,-36
  323. 3140  DATA 89,-40,91,-42,98,-42,102,-40,106,-38,109,-36,109,-30
  324. 3150  DATA 108,-26,108,-22: TOP OF BAY
  325. 3160  DATA 131,-22,128,-24,127,-27,125,-31,126,-33,127,-35,135,-34
  326. 3161  DATA 135,-42,130,-41,126,-40,120,-39,117,-40,114,-42,111,-46
  327. 3162  DATA 108,-48,100,-49,99,-49,92,-48,89,-47,84,-43,84,-40
  328. 3163  DATA 81,-38,75,-39,73,-39,68,-42,65,-46,64,-47,67,-50,67,-52
  329. 3164  DATA 64,-50,63,-49,61,-49,63,-53,56,-54,54,-54,51,-52,45,-52
  330. 3165  DATA 43,-53,43,-55,44,-58,41,-59,40,-61,43,-64,45,-66,45,-67
  331. 3166  DATA 43,-66,40,-64,36,-66,34,-62,30,-65,34,-69,37,-73
  332. 3167  DATA 37,-75,38,-77,41,-77,44,-73,46,-71,47,-73,53,-76,54,-79
  333. 3168  DATA 56,-81,59,-88,61,-90,62,-96,62,-100,56,-100,54,-102,52,-104
  334. 3169  DATA 53,-106,54,-106,63,-105,65,-104,72,-106,75,-108,79,-110
  335. 3170  DATA 80,-112,81,-116,83,-120,81,-119,74,-118,73,-120,74,-124
  336. 3171  DATA 76,-126,81,-126,84,-128,86,-130,88,-129,90,-134,91,-133
  337. 3172  DATA 98,-133,98,-131,97,-136,95,-140,92,-141,94,-144,96,-152
  338. 3173  DATA 97,-155,96,-160,98,-162,99,-164
  339. 3174  DATA 104,-164,108,-163,111,-163,112,-165,112,-168,108,-172
  340. 3175  DATA 110,-176,115,-178,117,-180,120,-182,124,-184,118,-185
  341. 3176  DATA 116,-186,118,-188,126,-190,120,-191,117,-194,110,-195
  342. 3177  DATA 108,-193,105,-192,101,-184,100,-178,99,-176,94,-178,90,-176
  343. 3178  DATA 76,-168,74,-166,72,-162,63,-160,54,-155,49,-152,45,-150
  344. 3179  DATA 42,-146,39,-144,41,-138,43,-136,44,-132,40,-130,46,-126
  345. 3180  DATA 47,-122,45,-120,41,-119,40,-113,41,-111,40,-108,38,-108
  346. 3181  DATA 37,-103,28,-105,24,-104,19,-106,17,-109,12,-110,11,-113
  347. 3182  DATA 18,-152,12,-154,11,-158,10,-160,11,-164,10,-165,16,-176
  348. 3183  DATA 18,-179,20,-182,23,-184,25,-180,27,-182,28,-198,32,-204
  349. 3184  DATA 34,-206,38,-211,135,-211,135,-22,0,-22,0,-211,38,-211
  350. 3190  DATA 38,-207,999,999:'S.F. BAY
  351. 3191  DATA 66,-107,68,-107,72,-109,74,-112,77,-114,74,-116,68,-114
  352. 3192  DATA 67,-113,64,-112,60,-111,60,-108,66,-107,999,999:'ALAMEDA
  353. 3193  DATA 77,-111,79,-112,78,-113,77,-111,999,999:'GOV'T IS.
  354. 3194  DATA 30,-93,31,-95,30,-97,28,-95,30,-93,999,999:'ANGEL IS.
  355. 3195  DATA 34,-98,35,-99,33,-99,34,-98,999,999:'ALCAT. IS.
  356. 3196  DATA 43,-99,44,-101,47,-103,48,-104,45,-105,44,-104,43,-99
  357. 3197  DATA 999,999:'YBI
  358. 3810  DATA 888,888,73,90,40,74,55,82,20,10,135,165,136,10
  359. 3820  DATA 999,999
  360. 3830  CHAIN"MENU2"
  361.